From 34c675970a0672937111b827c0b19daab2634751 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 13 Aug 2010 10:32:35 +0000 Subject: [PATCH] Make gnus-start-draft-setup interactive. From Ted Zlatanov . * gnus-start.el (gnus-start-draft-setup): Make it interactive. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-start.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fd43a31de43..9eb15247cd5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-08-12 Teodor Zlatanov + + * gnus-start.el (gnus-start-draft-setup): Make it interactive. + 2010-08-06 Katsumi Yamaoka * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 9ef251f2147..91cb5932f44 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -813,6 +813,7 @@ prompt the user for the name of an NNTP server to use." (gnus-run-hooks 'gnus-started-hook)))))) (defun gnus-start-draft-setup () + (interactive) "Make sure the draft group exists." (gnus-request-create-group "drafts" '(nndraft "")) (unless (gnus-group-entry "nndraft:drafts") -- 2.30.2